﻿Public Class ProjectMemberRole
    Implements IObject

    Private id As Integer
    Private projectMember As ProjectMember
    Private role As Role

    Public Sub New()
    End Sub

    Public Sub New(ByVal id As Integer)
        Me.id = id
    End Sub

    Public Sub New(ByVal id As Integer, ByRef projectMember As ProjectMember, ByRef role As Role)
        Me.id = id
        Me.projectMember = projectMember
        Me.role = role
    End Sub

    Public Sub New(ByVal projectMember As ProjectMember)
        Me.projectMember = projectMember
    End Sub

    Public Property idProperty() As Integer
        Get
            Return Me.id
        End Get
        Set(ByVal value As Integer)
            Me.id = value
        End Set
    End Property

    Public Property projectMemberProperty() As ProjectMember
        Get
            Return Me.projectMember
        End Get
        Set(ByVal value As ProjectMember)
            Me.projectMember = value
        End Set
    End Property

    Public Property roleProperty() As Role
        Get
            Return Me.role
        End Get
        Set(ByVal value As Role)
            Me.role = value
        End Set
    End Property

    Public Function getId() As Integer Implements IObject.getId
        Return id
    End Function

    Public Function getTableName() As String Implements IObject.getTableName
        Return "PROJECT_MEMBER_ROLE"
    End Function
End Class
